home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 November: Tool Chest / Dev.CD Nov 98 TC.toast / Tool Chest / Development Kits / MPW etc. / MPW-GM / Interfaces&Libraries / Interfaces / AIncludes / DeskBus.a < prev    next >
Encoding:
Text File  |  1998-02-17  |  5.0 KB  |  158 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        DeskBus.a
  3. ;
  4. ;    Contains:    Apple Desktop Bus (ADB) Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1987-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__DESKBUS__') = 'UNDEFINED' THEN
  19. __DESKBUS__ SET 1
  20.  
  21.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  22.     include 'MacTypes.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.  
  28.     IF TARGET_OS_MAC THEN
  29. ; typedef SInt8                         ADBAddress
  30.  
  31. ; 
  32. ;    TempADBServiceRoutineUPP is needed because of circular definition of
  33. ;    ADBServiceRoutineProcPtr and ADBServiceRoutineUpp depending on each other.
  34. ;
  35.  
  36. ; typedef ProcPtr                         TempADBServiceRoutineUPP
  37.  
  38. ADBDataBlock            RECORD 0
  39. devType                     ds.b    1                ; offset: $0 (0)        ;  original handler ID 
  40. origADBAddr                 ds.b    1                ; offset: $1 (1)        ;  original ADB Address 
  41. dbServiceRtPtr             ds.l    1                ; offset: $2 (2)        ;  service routine pointer 
  42. dbDataAreaAddr             ds.l    1                ; offset: $6 (6)        ;  this field is passed as the refCon parameter to the service routine 
  43. sizeof                     EQU *                    ; size:   $A (10)
  44.                         ENDR
  45. ; typedef struct ADBDataBlock *            ADBDBlkPtr
  46.  
  47. ADBSetInfoBlock            RECORD 0
  48. siService                 ds.l    1                ; offset: $0 (0)        ;  service routine pointer 
  49. siDataAreaAddr             ds.l    1                ; offset: $4 (4)        ;  this field is passed as the refCon parameter to the service routine 
  50. sizeof                     EQU *                    ; size:   $8 (8)
  51.                         ENDR
  52. ; typedef struct ADBSetInfoBlock *        ADBSInfoPtr
  53.  
  54. ;  ADBOpBlock is only used when calling ADBOp from 68k assembly code 
  55. ADBOpBlock                RECORD 0
  56. dataBuffPtr                 ds.l    1                ; offset: $0 (0)        ;  buffer: pointer to variable length data buffer 
  57. opServiceRtPtr             ds.l    1                ; offset: $4 (4)        ;  completionProc: completion routine pointer 
  58. opDataAreaPtr             ds.l    1                ; offset: $8 (8)        ;  refCon: this field is passed as the refCon parameter to the completion routine 
  59. sizeof                     EQU *                    ; size:   $C (12)
  60.                         ENDR
  61. ; typedef struct ADBOpBlock *            ADBOpBPtr
  62.  
  63. ;
  64. ; pascal void ADBReInit(void )
  65. ;
  66.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  67.         _ADBReInit:    OPWORD    $A07B
  68.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  69.         IMPORT_CFM_FUNCTION ADBReInit
  70.     ENDIF
  71.  
  72. ; 
  73. ;    ADBOp has a different interface for 68k assembly than for everything else
  74. ;    for 68k assembly the interface is 
  75. ;    #pragma parameter __D0 ADBOp(__A0,__D0)
  76. ;    OSErr ADBOp( ADBOpBlock * pb, short commandNum );
  77. ;
  78.  
  79. ; 
  80. ;    IMPORTANT NOTE:
  81. ;    "Inside Macintosh: Devices" documents the completion routine for ADBOp will be called with
  82. ;    four parameters using 68k register based calling conventions, specifically the completion routine
  83. ;    passed in should be of type ADBServiceRoutineProcPtr. However, when upp types were first added
  84. ;    to this interface file, the type ADBCompletionUPP was mistakenly used for the second parameter
  85. ;    to ADBOp. Since applications have shipped using completion routines of type ADBCompletionUPP,
  86. ;    the mistake cannot be corrected.
  87. ;    The only difference between ADBServiceRoutineUPP and ADBCompletionUPP is the former takes an extra
  88. ;    argument which is a pointer to itself, fortunately not needed for PowerPC code.
  89. ;    For compatibility with existing 68k code, when an ADBOp completion routine is called,
  90. ;    68k register A1 will point to the completion routine, as documented in Inside Mac.
  91. ;
  92.  
  93. ;
  94. ; pascal OSErr ADBOp(Ptr refCon, ADBCompletionUPP compRout, Ptr buffer, short commandNum)
  95. ;
  96.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  97.         _ADBOp:    OPWORD    $A07C
  98.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  99.         IMPORT_CFM_FUNCTION ADBOp
  100.     ENDIF
  101.  
  102. ;
  103. ; pascal short CountADBs(void )
  104. ;
  105.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  106.         ; returns:
  107.         ;    short           <= D0
  108.         _CountADBs:    OPWORD    $A077
  109.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  110.         IMPORT_CFM_FUNCTION CountADBs
  111.     ENDIF
  112.  
  113. ;
  114. ; pascal ADBAddress GetIndADB(ADBDataBlock *info, short devTableIndex)
  115. ;
  116.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  117.         ; parameters:
  118.         ;    info            => A0
  119.         ;    devTableIndex   => D0
  120.         ; returns:
  121.         ;    ADBAddress      <= D0
  122.         _GetIndADB:    OPWORD    $A078
  123.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  124.         IMPORT_CFM_FUNCTION GetIndADB
  125.     ENDIF
  126.  
  127. ;
  128. ; pascal OSErr GetADBInfo(ADBDataBlock *info, ADBAddress adbAddr)
  129. ;
  130.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  131.         ; parameters:
  132.         ;    info            => A0
  133.         ;    adbAddr         => D0
  134.         ; returns:
  135.         ;    OSErr           <= D0
  136.         _GetADBInfo:    OPWORD    $A079
  137.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  138.         IMPORT_CFM_FUNCTION GetADBInfo
  139.     ENDIF
  140.  
  141. ;
  142. ; pascal OSErr SetADBInfo(const ADBSetInfoBlock *info, ADBAddress adbAddr)
  143. ;
  144.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  145.         ; parameters:
  146.         ;    info            => A0
  147.         ;    adbAddr         => D0
  148.         ; returns:
  149.         ;    OSErr           <= D0
  150.         _SetADBInfo:    OPWORD    $A07A
  151.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  152.         IMPORT_CFM_FUNCTION SetADBInfo
  153.     ENDIF
  154.  
  155.     ENDIF    ; TARGET_OS_MAC
  156.     ENDIF ; __DESKBUS__ 
  157.  
  158.